home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD008b.dsk / SIREN.bas < prev    next >
BASIC Source File  |  2003-06-12  |  796b  |  28 lines
  1. 0  REM ********************
  2. 1  REM *   SIREN PROGRAM  *
  3. 2  REM *    M.W. FORDICE  *
  4. 3  REM *  APRIL 18, 1982  *
  5. 4  REM ********************
  6. 5  FOR X = 770 TO 790: READ Y: POKE X,Y: NEXT 
  7. 6  DATA 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96
  8. 7  GOSUB 200
  9. 9  FOR J = 1 TO 4
  10. 10  FOR I = 40 TO 15  STEP  -1
  11. 20  POKE 768,I: POKE 769,20: CALL 770
  12. 30  NEXT I
  13. 40  FOR I = 15 TO 40
  14. 50  POKE 768,I: POKE 769,20: CALL 770
  15. 60  NEXT I
  16. 70  NEXT J
  17. 80  FOR I = 41 TO 250
  18. 90  POKE 768,I: POKE 769,20: CALL 770
  19. 100  NEXT I
  20. 120  VTAB 13: HTAB 10: PRINT "AND HERE THEY ARE!!!"
  21. 130  FOR I = 1 TO 2000: NEXT I
  22. 140  END 
  23. 200  TEXT : HOME 
  24. 210  VTAB 13: HTAB 13: FLASH : PRINT "THE SIREN"
  25. 220  FOR I = 1 TO 2000: NEXT I
  26. 230  VTAB 13: HTAB 11: INVERSE : PRINT "HERE THEY COME"
  27. 240  NORMAL 
  28. 250  RETURN